home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0643A.ZIP / DATES / TIMSET.PRG < prev   
Text File  |  1987-04-11  |  2KB  |  76 lines
  1. * TIMSET.PRG
  2. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  3. *
  4. *   Neither dBASE III nor dBASE III PLUS have the ability to set or change
  5. *   the system time.  However, this routine will do it nicely.  It is placed
  6. *   in the public domain as freeware.  Please feel free to incorporate it
  7. *   into your programs.
  8. *
  9. *       Pat Adams
  10. *       DB Unlimited
  11. *       (718) 469-4961
  12. *
  13. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  14. *
  15. SET TALK OFF
  16. SET STATUS OFF
  17. SET SCOREBOARD OFF
  18. STORE " " TO GOOD
  19.  
  20. DO WHILE UPPER(GOOD) # "Y"
  21.     STORE SPACE(5) TO NOW
  22.     SET COLOR TO W/N, W/N, N
  23.     CLEAR
  24.     SET COLOR TO +B/W
  25.     @ 06,12 TO 16,67 DOUBLE
  26.     SET COLOR TO +BR/W
  27.     @ 05,24 TO 07,56
  28.     SET COLOR TO BR/W
  29.     @ 06,25 CLEAR TO 06,55
  30.     @ 06,26 SAY "SET OR CHANGE THE SYSTEM TIME"
  31.     SET COLOR TO B/W, W+/B
  32.     @ 07,13 CLEAR TO 15,66
  33.     *  User input of new time
  34.     @ 09,16 SAY "Please enter the new time in a 24 hour increment."
  35.     @ 11,16 SAY "For example, 8:00 am would be 08:00, 8 pm would"
  36.     @ 12,16 SAY "be 20:00 and so on."
  37.     @ 14,38 GET NOW PICTURE  "@Z 99:99"
  38.     READ
  39.     SET COLOR TO W/N, W/N, N
  40.     CLEAR
  41.     SET COLOR TO +BR/W
  42.     @ 02,24 TO 04,56
  43.     SET COLOR TO BR/W
  44.     @ 03,25 CLEAR TO 03,55
  45.     @ 03,26 SAY "SET OR CHANGE THE SYSTEM TIME"
  46.     SET COLOR TO N/W
  47.     @ 07,16 TO 17,62 DOUBLE
  48.     SET COLOR TO +GR/W, +GR/N
  49.     @ 08,17 CLEAR TO 16,61
  50.     *  User validation of input
  51.     @ 10,31 SAY "You entered " + TRANSFORM(NOW, "99:99") + "."
  52.     @ 12,31 SAY "IS THIS CORRECT?"
  53.     STORE " " TO GOOD
  54.  
  55.     DO WHILE AT(GOOD, "YyNn") = 0
  56.     * Error trapping routine permits only Y or N entry
  57.         @ 14,29 SAY "Please enter Y or N: " GET GOOD PICTURE "@!"
  58.         READ
  59.     ENDDO while at(good, "YyNn") = 0
  60.  
  61.     IF UPPER(GOOD) = "N"
  62.     *  Loop to permit user to re-enter data
  63.         LOOP
  64.     ENDIF
  65.  
  66.     CLEAR
  67.     *  Create memory variable usable in DOS for time setting
  68.     STORE SUBSTR(NOW,1,2) + ":" + SUBSTR(NOW,4,2) TO NEW
  69.     *  Return to DOS to set the time
  70.     ?
  71.     ?
  72.     RUN TIME &NEW
  73. ENDDO while upper(good) # "Y"
  74. RETURN
  75. * END Timset.Prg
  76.